home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / enigma / lettori / ferriccioli.lha / Installa next >
Text File  |  1996-12-30  |  1KB  |  66 lines
  1. ;Istallazione Vocabo 1.0
  2. ;$VER 1.0
  3. ;15/10/96
  4. ;
  5.  
  6. (set #introduzione
  7.  (cat        "Installazione automatica del programma:\n\n"
  8.              "Vocabo 1.0\n\n\n"
  9.              "(e di tutto il resto....)\n\n\n"
  10.              "Scegli \"Procedi\", per proseguire con l'installazione.\n\n"
  11.              "Scegli \"Abbandona\", per terminare l'installazione.\n"))
  12.  
  13. (message #introduzione)
  14. ;(welcome)
  15.  
  16. (complete 10)
  17.  
  18. (Set @dir (
  19. (Askdir (prompt "Dove desideri installare il programma\nVocabo 1.0 ?")
  20.         (help   " Indica la directory o il disco dove vuoi installare\n\n"
  21.                 " il programma Vocabo 1.0 .\n")
  22.  
  23.         (disk)
  24.         (default "Ram:")
  25. )))
  26.  
  27. (set @default-dest @dir)
  28.  
  29. (complete 30)
  30.  
  31. (set @dest (tackon @dir "Vocabulary"))
  32.  
  33. (complete 40)
  34.  
  35. (makedir @dest
  36.          (prompt "Creo il cassetto Vocabulary ?")
  37.          (help "\n Procedo con la creazione del cassetto\n  Vocabulary\n"
  38.                " nel quale installare il programma.")
  39.          (infos)
  40.          (confirm 0)
  41. )
  42.  
  43. (complete 60)
  44.  
  45. (copyfiles (prompt "Attendi.... Copio il file")
  46.            (help "Procedo con la copia del programma")
  47.            (source "Voc:")
  48.            (dest (@dest))
  49.            (all)
  50. )
  51.  
  52. (complete 90)
  53.  
  54. ;====================
  55. ;=== Conclusione  ===
  56. ;====================
  57.  
  58. (message
  59. (cat    "L'installazione di Vocabo 1.0 è completata!.\n\n"
  60.         "Buon divertimento!"))
  61.  
  62. (complete 100)
  63.  
  64. (exit)
  65.  
  66.